202

برنامه ای که در محیط گرافیکی QBasic یک موج کامل سینوس را ترسیم کند .

SCREEN 12
LINE (200, 200)-(400, 200), 2
FOR x = 0 TO 20 STEP .01 '{comment} Godeat 100 noghte
PSET (x * 10 + 200, 10 * SIN(x) + 200), 2 'Ferekans 10
NEXT x

برنامه ای که صدای آمبولانس را به مدت ۱ دقیقه از Pc-Speaker پخش کند .

FOR i = 1 TO 3600
SOUND (500), 9.1
SOUND (1500), 9.1
NEXT i

برنامه ای که نوت های موسیقی را هر کدام ۱ ثانیه پخش کند .

PLAY "a1 b1 c1 d1 g1 e1 f1"

برنامه ای که یک ساعت کامپیوتری ایجاد کند و سر هر ساعت بوق بزند.

start! = TIMER
flag:
LOCATE 1, 1
t = INT(TIMER - start!)
s = t MOD 60
m = (t \ 60) MOD 60
h = (t \ 3600) MOD 24
IF t MOD 3600 = 0 THEN SOUND (1000)
,1 LOCATE 1, 1
PRINT h; ":"; m; ":"; s
PRINT " " GOTO flag

برنامه ای که عدد طبیعی N را از ما بپرسد و N! را چاپ کند.

INPUT n
LET s = 1
flag:
LET s = s * n
LET n = n - 1
IF n > 1 THEN GOTO flag
PRINT s

منبع : AOT☻

نظرات شما عزیزان:

Daeizade

ساعت1:08---17 بهمن 1393

[وب سایت]

خیلی عالی بود

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: